home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / P_HUCKSTEPP / SolarSystem.AMOS / SolarSystem.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  593 b   |  24 lines
  1. '***************************** 
  2. '* Plantery Map              * 
  3. '*            Possible Proc  * 
  4. '* Paul Huckstepp            * 
  5. '***************************** 
  6. '
  7. '
  8. Screen Open 0,320,200,16,Lowres : Paper 0 : Curs Off 
  9. Cls : Flash Off : Palette 0,$FFF
  10. For I=1 To 100 : Plot Rnd(320),Rnd(200),1 : Next I
  11. F=0 : For T=1 To 4
  12. CL=Rnd(5)+2
  13. If CL=0 Then CL=1
  14. XC=Rnd(200)+30 : YC=Rnd(150)+30
  15. S=Rnd(40)
  16. For K=-S To S
  17. If Int(K)=0 and F=0 Then Plot XC-L*2,YC,0 : Draw L,0 To L*4,0 : F=1
  18. X=Sqr(S*S-K*K)
  19. X2=2*X
  20. For L=-X To X
  21. Ink CL : Plot XC+L,YC+K,0 : If Rnd(X2)-X<L Then Plot XC+L,YC+K,CL
  22. Next 
  23. Next 
  24. Next